home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / iau.arc / SYSINT13.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-10-25  |  732 b   |  58 lines
  1. include     /h/model.h
  2. include     /h/prologue.h
  3.  
  4. public        sysint13
  5.  
  6. flags        dw    ?
  7.  
  8. sysint13    proc
  9.  
  10.         push    bp
  11.         mov    bp,sp
  12.         
  13.         irp    reg,<ax,bx,cx,dx,si,di,ds,es>
  14.         push    reg
  15.         endm
  16.         
  17.         mov    bx,@ab[bp]
  18.         mov    ax,[bx]
  19.         mov    cx,4[bx]
  20.         mov    dx,6[bx]
  21.         mov    si,8[bx]
  22.         mov    di,10[bx]
  23.         mov    ds,ss:[12][bx]
  24.         mov    es,ss:[14][bx]
  25.         mov    bx,ss:[2][bx]
  26.  
  27.         push    bp
  28.         int    13h
  29.         pop    bp
  30.  
  31.         pushf
  32.         pop    flags
  33.         
  34.         push    bx
  35.         mov    bx,@ab[2][bp]
  36.  
  37.         pop    [2][bx]
  38.         mov    ss:[14][bx],es
  39.         mov    ss:[12][bx],ds
  40.         mov    [bx],ax
  41.         mov    4[bx],cx
  42.         mov    6[bx],dx
  43.         mov    8[bx],si
  44.         mov    10[bx],di
  45.  
  46.         irp    reg,<es,ds,di,si,dx,cx,bx,ax>
  47.         pop    reg
  48.         endm
  49.         
  50.         pop    bp
  51.         mov    ax,flags
  52.         
  53.         ret
  54.  
  55. sysint13    endp
  56. include    /h/epilogue.h
  57.         end
  58.